home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d10 / hlthrisk.arc / HRADOC.TXT < prev    next >
Text File  |  1989-08-04  |  11KB  |  213 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.                         Arden L. Ashton Jr. MD
  7.                         1521 Kiowa
  8.                         Leavenworth, Kansas 66048
  9.                         (913)682-9116
  10.  
  11. Dear Doctors
  12.  
  13.     I hope the enclosed copy of the IBM PC conversion of the Center For
  14. Disease Control health risk appraisal will help you in delivering quality
  15. care. I have found it very useful in my patient education program.  I feel
  16. my patients are more likely to change there health habits if I can show them
  17. how this will benefit their long term health.
  18.  
  19.     This program is designed to run on the IBM personal computer with
  20. at least 128k of random access memory, a 80 column display, one double
  21. sided floppy diskette and a printer.  The program can be ran on a hard disk
  22. or completly in a "RAM" disk mode (these will speed up the program).
  23. The program and documentation can be copied and distributed as long as
  24. it is not for commercial gain and the copyright notice is not altered.    We
  25. recommend that the program only be use by qualified health professionals
  26. who have the experience and training to adequately interpret individual
  27. results.  Further information on the program can be obtained directly from
  28. the Center for Disease Control in Atlanta, Georgia.
  29.  
  30.     The program is currently designed to run off a single double sided
  31. disk drive.  The program is distributed on two single sided diskettes (a
  32. latter version will allow the program to run off two single sided disk
  33. drives).
  34.  
  35.  GETTING STARTED
  36.     First copy all the files from the distribution diskettes to a newly
  37. formated double sided diskette.  Store the distribution diskettes in a safe
  38. place and use the diskette you made as your working diskette. (NOTE: do NOT use
  39. the diskcopy command in making your copy of the program;  rather use the
  40. COPY command with the global file symbols, i.e. COPY *.*)   You should now have
  41. a copy of the following files on your diskette:
  42.  
  43.        HRAINP1  EXE    52992   2-23-83  11:57a-- interactive input module
  44.        HRA1     EXE    63744   1-21-83   8:52p-- main hlth risk program
  45.        HRAPRINT EXE    24832   1-21-83   8:21p-- program to set up printer
  46.  
  47.        SYSTAB         501   7-27-82   6:26p --- data tables
  48.        DIATAB         501   7-27-82   5:51p     "    "
  49.        M1            1920   7-27-82   5:26a     "    "
  50.        OWTAB         947   7-24-82         "    "
  51.        AGETAB        2250   7-24-82         "    "
  52.        TITLES        1148  10-18-82   7:09p     "    "
  53.        RRSKFCT         384   8-03-82  10:47p     "    "
  54.        EDT             361   8-03-82  10:37p     "    "
  55.        RM2            3200   8-06-82   1:48p     "    "
  56.        RWTTAB        1152   7-27-82   7:37a     "    "
  57.        RTOP12        7424  10-23-82   4:09p     "    "
  58.        RDTH        14848   7-27-82   7:57a     "    "
  59.        RPRTHED        5376   8-04-82  12:43a     "    "
  60.        RSMOHED        1280   8-06-82   8:29p     "    "
  61.  
  62.        HDATA         ???   ?-??-83   6:26p --active pt. data
  63.        HRADATA         ???   ?-??-83   ?:??a --archival file
  64.        PRINTSTY         128   1-21-83   7:56p --printer parameters
  65.        HRADOC.TXT                   --documentation
  66.  
  67.     Before getting started let us first see how the program basically
  68. works.    We may start the program in either an interactive mode or a batch
  69. mode.  In the batch mode we would type in HRA1 (enter to the system prompt).
  70. The main health risk program is then loaded and it automaticaly looks for
  71. patient data in the file named "HDATA".  It completes the first patient's
  72. appraisal then returns to the file "HDATA" to see if any other patients are
  73. listed. If another patient's data is found, it does his risk appraisal and again
  74. returns to "HDATA" looking for another patient's data.  After all the patients
  75. have been done in "HDATA", it automatically goes into the interactive data input
  76. program "HRAINP1".
  77.  
  78.     This interactive program DESTROYES the old HDATA and writes
  79. the new patients information to the diskette in a completely new HDATA file.
  80. The program adds the current patients data to an archival file HRADATA
  81. (this file was designed to be used with future programs which would allow you
  82. to go back and analysis the demographics etc. of the patient's data).  After
  83. the participant has successfully entered his responses the program automatically
  84. goes to the health appraisal program.
  85.  
  86.      The only other program you need to be aware of is the program to set up
  87. your printer.  You can enter the printer control codes for your printer (i.e.
  88. compressed print, double strike, etc.) and the number of copies of each print-
  89. out you want. To start this program all you need to do is type HRAPRINT (enter
  90. to the DOS prompt.  The default print codes in the distribution diskette are
  91. 0,0,0 (null codes) and one copy of the printout.
  92.  
  93.      You can now start working with the programs and see how they work in
  94. your environment. I would recommend initially running the sample cases.  First
  95. make sure your printer is on and the paper is set to the top of the form.
  96. You enter the command HRA1 <enter to the DOS prompt. (<enter= hit return key).
  97. The program will now do the risk appraisal for 3  patients and then automati-
  98. cally go into the interactive data entry program. If you should want to stop
  99. the program before it is completed you can enter the "ESC" key. The program
  100. periodically looks for this key and will stop execution (depending where you
  101. are in the program, it can take several minutes).
  102.  
  103.      Once you have gone throught the example cases and an interactive session,
  104. you may want to try the program to set up the control codes for your printer.
  105. The program is started by entering the command HRAPRINT <enter to the DOS
  106. prompt.  The program will take you through the program step by step to store
  107. the printer control codes for your printer. After you have successfully done
  108. this every time a new risk appraisal is to be printed, the control codes will
  109. automatically be sent to the printer.
  110.  
  111. APPENDIX A  BATCH OPERATION
  112.  
  113.      In certain situations a batch mode of operation can be used to
  114. increase the number of risk appraisals done in a given period of time.
  115. In the interactive mode each participant can take a long time entering
  116. his personal data. If time is not a consideration, this is not a problem;
  117. but in other cases time is of the essence.  An experienced operator can
  118. take the data from many questionnaires and put it into a file which can then
  119. run in a batch mode.  In the batch mode the slowest part of the evaluation
  120. generally is the printer.  The printer not only takes time printing out the
  121. evaluation but it also holds up the computer from going to the next case.
  122. (A print buffer can avoid this hang up allowing the computer to be calculating
  123. the next case while the printer is printing the report for the last case)
  124.  
  125.      The patient data file can be created in any text editor (not word
  126. processors). Included in the DOS is an adaquate test editor named "EDLIN".
  127. The "EDLIN" program can be copied to your working diskett and used to
  128. create a batch file. The following steps can be followed to creat your file:
  129.  
  130.        1. Call up the editor program along with the data file by typing
  131.         A> EDLIN HDATA <enter
  132.        2. If the data file HDATA had not already been created on the disk,
  133.         you would be told that this is a new file. You would then enter
  134.         the letter "I" (insert) to the editor prompt "*".  You could
  135.         now enter the data from the questionnaires in the exact form
  136.         noted in example #1.  After entering the data for one case,
  137.         you would hit the return key and start entering data for the
  138.         next case.  After entering all the cases, you simultaneously
  139.         hit the "CTRL" and "BREAK" keys.  The file is then saved by
  140.         entering the letter "e" to the editor prompt "*".
  141.         3. If the data file Hdata  is on the disk, you can look at the
  142.         first few lines of data by typing in the letter "L" to the
  143.         editor prompt "*".  All the lines of the old file will
  144.         have to be deleted before you save the new data. You can
  145.         delete all the lines except the first one by entering
  146.         "2,500 D" (delete lines 2 to 500) to the editor prompt "*".
  147.         4. Use the retained data in line 1 as a guide for entering
  148.         the other cases. To start adding data to line #2 type
  149.         "2 I" to the prompt. You can now start adding data to
  150.         line two in the editor.  By retaining the old case in
  151.         line #1 you can use it as a visual aid in making sure
  152.         you enter the data in the right order and format. After
  153.         you have entered all the cases you can delete the old
  154.         case in line #1 by typing "1D" (delete #1) to the prompt.
  155.          5. Save the new data file by typing "E" to the prompt.
  156.  
  157.  
  158. EXAMPLE  OF DATA FORMAT IN  HDATA IN THE EDLIN PROGRAM
  159.      *1. SMITH,SMAL,J,111111111,1,1,55,6,7,222,3,0,0,0,0,2,0,0,0,3,22000,99,
  160. 2,3,2,3,2,2,2,2,123,77,211,1,1,1,2,3,3,3,0,0,0,0,0,2,2,3,1,1,LV,KS
  161.  
  162. EXAMPLE OF DATA (two cases) IN HDATA IN THE EDLIN PROGRAM
  163.      *1. SMITH,SMAL,J,111111111,1,1,55,6,7,222,3,0,0,0,0,2,0,0,0,3,22000,99,
  164. 2,3,2,3,2,2,2,2,123,77,211,1,1,1,2,3,3,3,0,0,0,0,0,2,2,3,1,1,LV,KS
  165.       2. SMITH,JOHN,R,222222222,1,1,55,6,7,222,3,0,0,0,0,2,0,0,0,3,22000,99,
  166. 2,3,2,3,2,2,2,2,123,77,211,1,1,1,2,3,3,3,0,0,0,0,0,2,2,3,1,1,LV,KS
  167.  
  168. NOTE: THE INTERACTIVE PROGRAM STORE EXTRA SPACES IN THE DATA FILE (EXAMPLE)
  169.       *1. SMITH,NORM,J,1111111111, 1 , 1 , 55 , 6 , 8 , 222 , 3 , 0 , 0 ,
  170.  , 0 , 2 , 0 , 0 , 0 , 3 , 22000 , 99 , 2 , 3 , 2 , 3 , 2 , 2 , 2 , 2 , 123 ,
  171.  077 , 211 , 1 , 1 , 1 , 2 , 3 , 3 , 3 , 0 , 0 , 0 , 0 , 0 , 2 , 2 , 3 , 1 ,
  172.  1 ,LV,KS
  173.  
  174.  
  175. APPENDIXE B FORMAT OF ARCHIAVAL FILE
  176.      The archival file HRADATA grows in size with each interactive case that
  177. it processes.  It can become too large for the diskette and give a disk over-
  178. flow error.  To provent this from happening you should periodically either
  179. erase the the file HRADATA or copy it to another diskette.  The program to
  180. analysis this data is currently not available but the following code showing
  181. how it was created can help those who have some computer experience get to
  182. the data.
  183.  
  184. OPEN "R",2,"HRADATA",193:FIELD #2,12 AS IDC$,4 AS I$( 1),177 AS D$
  185. NREC=1
  186. NREC=NREC+1
  187. PRINT "NREC";NREC
  188. RECS=NREC:LSET I$(1)=MKS$(RECS)
  189. LSET IDC$="FIRST RECORD"
  190. PUT #2,1
  191. FIELD #2,12 AS IDC$,4 AS I$( 1),4 AS I$( 2),4 AS I$( 3),4 AS I$( 4),
  192.     4 AS I$( 5),4 AS I$( 6) ,4 AS I$( 7),4 AS I$( 8),4 AS I$( 9),4 AS I$(10),
  193.   4 AS I$(11),4 AS I$(12) ,4 AS I$(13),4 AS I$(14),4 AS I$(15),121 AS D$
  194. LSET IDC$=IDCODE$
  195. FOR J=1 TO 15:LSET I$(J)=MKS$(INPT!(J)):NEXT J
  196. FIELD #2,72 AS D$  ,4 AS I$(16),4 AS I$(17),4 AS I$(18),4 AS I$(19),
  197.    4 AS I$(20),4 AS I$(21) ,4 AS I$(22),4 AS I$(23),4 AS I$(24),4 AS I$(25),
  198.   4 AS I$(26),4 AS I$(27) ,4 AS I$(28),4 AS I$(29),4 AS I$(30),61 AS D1$
  199. FOR J=16 TO 30:LSET I$(J)=MKS$(INPT!(J)):NEXT J
  200. FIELD #2,132 AS D$ ,4 AS I$(31),4 AS I$(32),4 AS I$(33),4 AS I$(34),
  201.    4 AS I$(35),4 AS I$(36) ,4 AS I$(37),4 AS I$(38),4 AS I$(39),4 AS I$(40),
  202.    4 AS I$(41),4 AS I$(42) ,4 AS I$(43),4 AS I$(44),3 AS COT$  ,2 AS STA$
  203. FOR J=31 TO 44:LSET I$(J)=MKS$(INPT!(J)):NEXT J:LSET COT$=CO$:LSET STA$=ST$
  204.  
  205.                     ARDEN L. ASHTON,JR
  206.                     M.D.
  207.  
  208.                     PROGRAMED BY:
  209.                     JEFFREY BORBELY
  210.                     PRES. ADVANCED MEDICAL SYSTEMS, INC.
  211.  
  212. 
  213.